home *** CD-ROM | disk | FTP | other *** search
/ Hottest 6 / Hottest 6 (1996)(PDSoft)[!].iso / software / programming / c / sri / rexx / uedit / sriopen.rexx < prev    next >
OS/2 REXX Batch file  |  1978-11-24  |  645b  |  21 lines
  1. /* this file starts Uedit or loads a file */
  2. parse arg file
  3. options failat 5
  4. if ~show('L','rexxarplib.library') then
  5.    call addlib('rexxarplib.library',0,-30,0)
  6. if ~show('L','rexxsupport.library') then
  7.    call addlib('rexxsupport.library',0,-30,0)
  8. if showlist('P','URexx')=0 then do
  9.   address command "RunWsh <NULL: >NULL: DH0:Uedit/uex"
  10.   do i=1 to 10
  11.     if showlist('Ports','URexx') ~= 0 then leave i
  12.     address command 'c:Wait sec 1'
  13.   end
  14.   if showlist('Ports','URexx')=0 then exit
  15. end
  16. file = compress(file, '"')
  17. if (length(file) ~= 0) then
  18. do i = 1 to FileList(file, myfilelist, 'F', E)
  19.   address 'URexx' 'loadfile ' || myfilelist.i
  20. end
  21.